home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / easyx / data1.cab / Example_Files / pong / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-11-03  |  1.5 KB  |  67 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Type Sprite
  5.     XPoint As Long
  6.     YPoint As Long
  7.     XSpeed As Long
  8.     YSpeed As Long
  9.     XDirection As Long
  10.     YDirection As Long
  11.     Number As Long
  12. End Type
  13.  
  14. Type Boulder
  15.     Point As Long
  16.     XPoint As Long
  17.     YPoint As Long
  18.     Hit As Boolean
  19.     Number As Long
  20. End Type
  21.  
  22. Type FrontSprite
  23.     Number As Long
  24.     XPoint As Long
  25.     YPoint As Long
  26. End Type
  27.  
  28. 'Graphical Character Constants
  29. Public Const A As Long = 0
  30. Public Const B As Long = 1
  31. Public Const C As Long = 2
  32. Public Const D As Long = 3
  33. Public Const E As Long = 4
  34. Public Const F As Long = 5
  35. Public Const G As Long = 6
  36. Public Const H As Long = 7
  37. Public Const I As Long = 8
  38. Public Const J As Long = 9
  39. Public Const K As Long = 10
  40. Public Const L As Long = 11
  41. Public Const M As Long = 12
  42. Public Const N As Long = 13
  43. Public Const O As Long = 14
  44. Public Const P As Long = 15
  45. Public Const Q As Long = 16
  46. Public Const R As Long = 17
  47. Public Const S As Long = 18
  48. Public Const T As Long = 19
  49. Public Const U As Long = 20
  50. Public Const V As Long = 21
  51. Public Const W As Long = 22
  52. Public Const X As Long = 23
  53. Public Const Y As Long = 24
  54. Public Const Z As Long = 25
  55.  
  56. 'Graphical Character Number Constants
  57. Public Const Zero As Long = 26
  58. Public Const One As Long = 27
  59. Public Const Two As Long = 28
  60. Public Const Three As Long = 29
  61. Public Const Four As Long = 30
  62. Public Const Five As Long = 31
  63. Public Const Six As Long = 32
  64. Public Const Seven As Long = 33
  65. Public Const Eight As Long = 34
  66. Public Const Nine As Long = 35
  67.